home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 45 / cda45.iso / intro.dxr / scripts_6_Lista de programas.ls < prev    next >
Encoding:
Text File  |  2000-04-18  |  2.8 KB  |  81 lines
  1. global gListaProgramas, gEnlaceWeb
  2.  
  3. on initListado texto
  4.   numPuntos = 0
  5.   programas = EMPTY
  6.   gListaProgramas = []
  7.   linea = EMPTY
  8.   i = 1
  9.   repeat while i < (texto.lines.count + 1)
  10.     if texto.line[i].char[1] = "-" then
  11.       linea = texto.line[i]
  12.       delete char 1 of linea
  13.       delete char 1 of linea
  14.       listilla = [:]
  15.       numPuntos = numPuntos + 1
  16.       addProp(listilla, #numPrograma, numPuntos)
  17.       addProp(listilla, #nombre, linea)
  18.       programas = programas & linea && numToChar(172) & RETURN
  19.       i = i + 1
  20.       addProp(listilla, #tipo, texto.line[i].word[1])
  21.       case texto.line[i].word[2] of
  22.         "i":
  23.           tIdioma = "ingl├⌐s"
  24.         "e":
  25.           tIdioma = "castellano"
  26.         "f":
  27.           tIdioma = "franc├⌐s"
  28.         "c":
  29.           tIdioma = "castellano"
  30.       end case
  31.       addProp(listilla, #idioma, tIdioma)
  32.       addProp(listilla, #so, texto.line[i].word[3])
  33.       i = i + 1
  34.       addProp(listilla, #ruta, texto.line[i])
  35.       i = i + 1
  36.       addProp(listilla, #web, texto.line[i])
  37.       i = i + 1
  38.       addProp(listilla, #enlaceweb, texto.line[i])
  39.       i = i + 1
  40.       addProp(listilla, #distribuidor, texto.line[i])
  41.       i = i + 1
  42.       addProp(listilla, #fabricante, texto.line[i])
  43.       i = i + 1
  44.       addProp(listilla, #requisitos, texto.line[i])
  45.       i = i + 1
  46.       addProp(listilla, #descripcion, texto.line[i])
  47.       append(gListaProgramas, listilla)
  48.     end if
  49.     i = i + 1
  50.   end repeat
  51.   delete char -30003 of programas
  52.   member("programas").text = programas
  53.   return numPuntos
  54. end
  55.  
  56. on actualizarDatos numProg
  57.   member("nombre").text = gListaProgramas[numProg][#nombre]
  58.   member("so2").text = gListaProgramas[numProg][#so]
  59.   member("Idioma2").text = gListaProgramas[numProg][#idioma]
  60.   member("tipo2").text = gListaProgramas[numProg][#tipo]
  61.   member("fabricante2").text = gListaProgramas[numProg][#fabricante]
  62.   member("distribuidor2").text = gListaProgramas[numProg][#distribuidor]
  63.   member("requisitos2").text = gListaProgramas[numProg][#requisitos]
  64.   member("so").text = gListaProgramas[numProg][#so]
  65.   member("Idioma").text = gListaProgramas[numProg][#idioma]
  66.   member("tipo").text = gListaProgramas[numProg][#tipo]
  67.   member("fabricante").text = gListaProgramas[numProg][#fabricante]
  68.   member("requisitos").text = gListaProgramas[numProg][#requisitos]
  69.   member("distribuidor").text = gListaProgramas[numProg][#distribuidor]
  70.   member("descripcion").text = gListaProgramas[numProg][#descripcion]
  71.   member("descripcion").scrollTop = 0
  72.   member("ruta").text = gListaProgramas[numProg][#ruta]
  73.   member("web").text = gListaProgramas[numProg][#web]
  74.   gEnlaceWeb = gListaProgramas[numProg][#enlaceweb]
  75.   carpeta = gListaProgramas[numProg][#ruta]
  76.   repeat while (the last char in carpeta <> "\") and (carpeta <> EMPTY)
  77.     delete char -30000 of carpeta
  78.   end repeat
  79.   importarFotos(carpeta & "cdamedia")
  80. end
  81.